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**F ILE**1D**SYSBRKTHR 


SSSSSSSS_ YY YY SSSSSSSS 688888888 RRRRRRRR KK KK TTTTTTTTTT HH HH RRRRRRRR 
SSSSSSSS_ YY YY SSSSSSSS 88888888 RRRRRRRR eK KK TTTTTTTTTT HH HH RRRRRRAR 
$$ YY YY $$ 8B BB RR RR KK KR TT HH HH RR RR 
$$ YY YY $S 8B RR RR KK KK TT HH HH RR RR 
$s vy yy $$ 88 BB RR RR KK KK TT HH HH RR RR 
SS yy yy $s 88 BB RR RR KK K TT HH HH RR RR 
SSSSSS YY SSSSSS 88888888 RRRRRRRR KKKKKK TT HHHHHHHHHH §=RRRRRRRR 
SSSSSS YY SSSSSS 88888888 RRRRRRRR KKKKKK TT HHHHHHHHHH §=RRRRRRRR 
$$ YY SS 68 BB RR RR KK K TT HH HH RR RR 
$$ YY SS 6B BB RR RR KK KK TT HH HH RR RR 
$$ YY SS 8B BB OR RR KK KK TT HH HH RR RR eeee 
Ss YY SS 88 BB RR RR KK KK TT HH HH RR RR cece 
SSSSSSSS YY SSSSSSSS BB888B8B RR RR KK KK TT HH HH RR RR cece 
SSSSSSSS YY SSSSSSSS BBBBBBBB RR RR KK KK TT HH HH RR RR eeee 
LL T1111] Stttttt 
LL HII! SSSSSSS 
LL I] $$ 
LL I] $s 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL II Ss 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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FACILITY: 
SYS 
INCLUDES: 
SBRKTHRU system service 
SBROCST system service 
ABSTRACT: 
Write breakthru message to specified terminals and mailboxes. 
ENVIRONMENT: 


Kernel Mode. IPL 0 and 2. 


AUTHOR: Jake VanNoy, CREATION DATE: 3-Feb-1983 
MODIFIED BY: 
v03-011 JLV0392 Jak 26-JUL-1984 
Make check for TRM ay SPL at HAVE. ucB. 
Do not write RS to mailbox if"class disabled. 


v03-010 JLV0347 Bee 8-APR-1984 
Skip terminal it Net s se Fix problem in 


"SSEp=198e Bb:6:00 ESHER SBactnmcman:1 |= "8 


1 
(1), 


a et a ns 8 8 2 de ot 4 


- Write breakthru 


O00 000009090909 090009 090908 INI NINN 


Porm aeesseseesoose se 
PUR 0 OO NOUS wn NAUSEA 9 ONO UNE WP  O OO@NOU SW" 0O0@ 


Be Ge Se Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te 


to terminals 


v03-009 


v03-008 


v03-007 


v03-006 


v03-005 


v03-004 


v03-003 


v03-002 


v03-001 


SEE e19Be Ob:c8:06 LeveveactsySBRK THR AAR; 1 
heck for prosdcest to 


to device w uf Rw 
elds to MOVQ's. 


JLV0339 Jake Va 
Skip terminal if Anes gre 
to have just DDC part of device name. Force timeou 
of a cluster breakthru request to 15 seconds on all 
meee except local. Fix bug that used BRKSL_FLAGS 
scratch. 


ACGO385 Andrew C. Golds 
Change UAFSS_USERNAME use to J! 
pending UAF format changes 


JLV0308 Jake VanNo 
Complete work started in J 
username in GET_SENDTO. 


ame username. 
so that cluster broadcast 
Change MOVC of device name 


y 9-MAR-1984 
Ss set. Fix mailbox messa 


n 28-Dec-1983 15:27 
- due to 


tein, 
BSS _USERNAME 
22-SEP-1983 


{vo307. Fix check against 
Change parameter in call 


to IOCSCVT_DEVNAM, since the interface to that routine 
has changed. 

JLV0307 Jake VanNoy 7-SEP-1983 
Fix enhanced privilege bug. Wait until after cluster 
broadcast to deallocate BRK. Fix bug in defaulting of 
gerrie e control in S$BRDCST. Add use of EXESSIGTORET 

n $BROCST. 

JLV0302 Jake Yenttoy 22-AUG-1983 
Add MOVCS to zero entire BRK 


arty eed up to where text 

ng separate CLRx instructions 
register around MOVC in GET_SENDTO. 
 NOOPER error code. 


is pLoced, This allowed remov 
in initialization. Save 
Change exit path for SS$ 


JLV0300 Jake VanNoy 30-JUL-1983 
Add OPER priv checks. Allow SBRKTHRU to same username 
without priv. Initialize mailbox prefix code. Remove 
BRKS symbols from here and move them to LIB. This 
allows cluster broadcast code to use BRK sirus ture. 
Add IOSM_CANCTRLO to Q10. Make use of IOCSCVT_DEVNAM. 


LJK0213 Lawrence J. Kena 


h 23-Jun-1983 
Unlock data base before calling GET_NEXT_TERMINAL to make 


sure that SGETJPI is not called at IPL 2° 

JLVO0269 Jake VanNoy 27-MAY-1983 

Fix bugs in SET_PRIV routine. Add code to use REQID. 
Add code to call EXESCSP_BRKTHRU, the cluster broadcast 
routine. 

JLVO245 Jake VanNoy 9-APR-1983 
First pass cleanup. Include code for EXESBRDCST here, 


this obsoletes the old SYSBRDCST module. 


tee * 


{ INCLUDE 


{ MACROS: 
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a epkthru to terminals . 


*agegepetane gusggsne yanzvmg tee 


xPia aR: 1 


»SBTTL DECLARATIONS 


FILES: 


EQUATED SYMBOLS: 


it 
al 


#4 


oe 
on 


rt 


; minimum time 


3 
3 orcea. timeout 


BV-SHARE 


ne Md yp interface symbols 
@ chaenne control plock 
ne 


avest symbols 


ne 4 [it bac ton Block 
ret block 


eer evahertasaten symbols 


i system efn 


Pavecenes 


f Lines allowed to clear in screen write 
or cluster broadcast 


i define mesh 


sencous 
mun numb er 


ter 


kthru to terminals a 7 PS 14 oi: rt 3 AX/VMS Macro V04-00 ae 


SYSBRKTHR - Write brea 
v04-000 DECLARATIONS EP=1 SYS.SRCISYSBRKTHR.MAR; 1 (1) 
0 V7 ; following assumes for MOVQ's of name buffer's 
5 174 tee | DDBS$S_NA Q 16 
0 175 A 7 BRKS$S_DEVNAME EQ 16 
Oe 178 as E BRKSS_SENDNAME EQ 16 
4 oe ASSUME BRKSS_TRMNAME EQ 16 


SZ 


— 


— $$ ——_—_—_ _—-+, 
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SYSBRKTHR - Write breakthru to terminals 16-SEP-1984 8 VAX/VMS M v04-00 P 
v04=000 DECLARATIONS ~SEp=1984 03:69:06 LevsvorcieysorKrHnsmar;1 "29° (3), 
180 ; | 
§ : | : Local storage offsets for temporary stack allocation 
188 | 
184 ; 
! 5 ; getjpi stack items 
99 ; : SDEFINI STK 
00 189 SDEF STKSW_LUSERSIZ .BLKW 
00 190 SDEF STKS$W_USERJPI -BLKW 
004 191 SDEF STKSL_USERNAME .BLKL 
Obe 136 SDEF STK$_"USERLENR .BLKL 
Mitt 194 $DEF STKSW_TERMSIZ -BLKW 
43 195 SDEF STKSW_TERMJPI -BLKW 
001 138 SDEF STKSL_TERMNAME .BLKL 
0014 197 SDEF —STKSLTERMLENR  -BLKL 
0018 199 SDEF | STKSL_ENDLIST .BLKL | 
001C 200 
001C 201 SDEF = STKSW_USERLEN .BLKW 
QO1E 86 SDEF STKST_USERNAME .BLKB JIBSS_USERNAME 
00 A 203 SDEF STKSWITERMLEN  .BLKW 
002C 305 SDEF = STKSC_LEN | 
002C 06 
002C 07 SDEFEND STK 
0000 08 ; 
0000 09 ; OWN STORAGE: 
0000 210 } | 
0000 11 
00000000 21¢ .PSECT YSEXEPAGED | 
4B 30 5B 1B 41 31 58 18 0000 214 erase_pat: -ascii  /C1ACOK/ 
44 $12 assumé .-erase_pet EQ 8 3 SO Quadword access can be done | 
55 21 5B 1B 37 18 et gt Be cd 008 217 screen_ctrstr: .ascid /7C!UB;1HC[K!AD!AD8/ 
41 21 44 41 21 4B 5B 1B 48 31 42 0016 
38 1B 44 0022 | 
0025 218 | 


D 1 
SYSBRKTHR - Write breakthru to terminal 16-SEP-1984 01:42:38 VAX/VMS M v04-00 p SY! 
VO4=000 EXESBRKTHRU ~ Break though write wSEp-19be 05:05:06 Esvsverclsvspretancmar;1 "29° (8) | vO 
9 -SBTTL EXESBRKTHRU = Break though write 
§ +4 | 
3 4 FUNCTIONAL DESCRIPTION: | 
5 ; 
025 5 ; CALLING SEQUENCE: 
3 5 ; NONE 
i ; : : INPUT PARAMETERS: | 
; R4 = PCB 
3 2 i AP = argument List | 
+ 5 5 ; IMPLICIT INPUTS: 
025 6; NONE 
0025 ee 
0025 238 ; OUTPUT PARAMETERS: 
0025 39 ; NONE | 
0025 40 ; 
0025 41 ; IMPLICIT OUTPUTS: 
0025 XK; : NONE 
0025 st : 
bp5e 44 ; COMPLETION CODES: 
0025 see : NONE 
0025 46 ; | 
0025 ste ; SIDE EFFECTS: 
0025 48 ; NONE 
0025 49 ; 
bo98 «58h 
OFFC 0095 26 eENTRY EXESBRKTHRU, “*M<R2,R3,R4,R5,R6,R7,RE,RI,RIO,R11> 
$057 234 3 
0097 $22 : Check parameters and do initialization needed 
56 4 $0 7 57 CLRL R6 ; no buffer yet 
0029 58 $ 
0029 59 3; Clear Event Flag 
0029 60 : 
53 04 AC 9A 0029 61 MOVZBL EFN(AP),R3 3; Fetch EFN 
00000000" EF 16 00 p 6¢ JSB SCHSCLREF > Clear 
4F 50 €9 4 6 BLBC RO,20$ : Exit on error 
036 64 3 
8 ° 9? ; Verify I0SB and clear it 
5B 14 AC 00 0036 89 MOVL JOSBCAP),R11 ; Get address of 10SB 
0B 1 bee of BEQL 1 ; Branch if none 
0 § IFWRT #8,(R11),5$ ; Branch if ok 
009F 31 004 0 BRW acCVIO_EXIT : Error if not writeable 
68 C Be 4 5: CLRQ (R11) : Clear 
1 8 AC 00 Ree 18 : MOVL MSGBUF (AP) ,R1 ; Message buffer descriptor 
000000 0° GF 1 48 7% JSB GEXESPROBER_DSC : Probe descriptor 
150 € bey ie BLBC RO,20$ : branch if error 


BRKSQ_TIMEOUT (ROS ; 


E 
SYSBRKTHR - Write breakthru to terminal 16-SEP-1984 01:42:38 VAX/VMS Macro v04-00 P 
V04=000 EXESBRKTHRU = Break though write ~3Ep= 138s 03:45:00 Lens veacisysorernnemar:1 = 2% (3) 
q 77 ; R1 and R2 have length and address, calculate size of buffer 
? 4 ; needed for storage. 
51 51 3c 0054 0 MOVZWL R1,R1 : clear top word 
9 1 D 57 1 MOVQ 1,R9 3 save bot 
53 BE BF 9A 005A MOVZBL #BRKSC_LENGTH,R3 : Size of basic block 
53 + oe af ADDL - For normal data 
58 51 00000000 of C1 6 ADDL3 #16+<8*BRK_C_MAXLINES>,R1,RB ; screen overhead and message 
2 3 S 5 ADDL R8,R :; For screen data 
0 C 6C 6 ADDL #3,R ; round of to songrere by adding and... 
5 9 CA oof 87 BICL #3,R 3 clearing bits 
57 0 0 se MOVL R3,R ; Save this Length 
06 C5 007 MULL3 #BRK € SIMULCAST .~ 
29 oF Bee 90 #BR ¢ C_LENGTH,RO ; Size of context area 
5 0 CO Babe 4 ADDL RO,R ; add to length 
aor 38 : Compute pages and allocate region 
51 53 00 O07C 95 MOVL R3,R1 ; Number of bytes 
00000000'GF 16 OO7F 296 B G*EXESALOP1 IMAG + Allocate memory 
5F 50 =€9 Boge 4 208: BLBC RO,ERROR_EXIT ; exit on error 
itt + : Copy remaining paramters into allocated region 
56 52 D0 0088 01 MOVL R2,R6 3; Copy Address of block 
1€ BB 0088 8 PUSHR #*M<R1,R2,R3,R4> 3; Save 
00 6€ 00 2C 008D 30 movCS #0,(SP5,#0,- 
62 OO8E 8F Beee 04 #BRKSC LENGTH, (R2) ; Zero entire structure (up to text) 
1E€ BA Ob? b2 POPR #*M<R1,R2,R3,R4> ; Restore 
08 A6 651 BO 0097 0 MOVW R1,BRK$W_SIZE(R6) > And size 
60 A6 6647 9E 0098 08 MOVAB (R6)CR7JTBRK$L_QIOCTX(R6S ; Qio context start address 
68 A6 =658 «DO 90A0 309 MOVL  RB,BRKSL_SCRMSGLEN(R6) ; init 
1C A6 54 DO OO0A4 10 MOVL R4 ,BRKSL_PCB(R6) ; Save PCB 
20 A6 s5B OOAs 1 MOVL  R11,BRKSC_IOSB(R6) : Set address 
Bpac 13 > Copy main message buffer 
008C £6 33 Bg Goat 1? hovw BE -ORERY_ASGLENCAG) ; Save Length 
OO8E C 00B4 9 BRKS$T_MSGBUF (R6) : Copy message buffer 
6C A6 5 dO ores + MOVL R3,BRRSL_SCRMSG(R6) 3 mext byte is where screen message starts 
ea y : Copy send type and ‘send to:"' string (if required) 
0278 088 : 6sBw GET SENDTO : handle SENDTO, SENDTYPE 
26 50 ber ? BLBC RO,ERROR_EXIT 3 check status 
oct 5 : Set up time quadword if timeout requested 
50 24 AC ta 5 MOVL TIMOUT CAP) ,RO ; Timeout value 
12 0cs 3 BEQL 2408 : branch if none svecified 
q 50 04 OC? CMPL #BRK_C_MINTIME,RO ; Compare to minimum number of seconds 
13 CA 0 BGTR BADPARAM_EXIT ; Exit if too small 
50 ar cc 1 MNEGL RO,R ; Get negative value 
00 50 00989680 er OCF ‘ MUL #16%1000*1000,R0,#0,- 


Times ten million ticks per second 


es 
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v04-000 EXESBRKTHRU = Break though write ae set 9 94:48:38 SYS.SRCISYSBRKTHR.MAR; 1 . &) 
OF B0 00D9 334 240$: MOVW  #BRK_C_CLUTIMEOUT,- | 
4E “6 dB 5 BRK$Q@_SECONDS(R6) ; set default timeout for cluster | 
10 11 90D 356 BRB ALL_OR : And continue 
DF § 
44 33 ; An error has occured in initial processing... 
Bee 41 BADPARAM EXIT: | 
ss “= DF tg MOVZWL #SS$_BADPARAM,RO ; set status 
03 11 bee 4 BRB ERROR_EXIT 3 exit 
BE 44 ACCVIO_EXIT: 
a E4 45 MOVZWL #SS$_ACCVIO,RO ; Set error 
QE7 $46 ERROR_EXIT: 
5 d 00E7 4 TSTL R6 ; Buffer to delete? 
0 13 OOE9 48 BEQL 10$ ; Branch if not 
056E 30 QOEB 49 BSBW RETURN_MEMORY ‘3; return memory 
OOEE 50 10S: 
04 OQOEE 51 RET : exit 
OOEF 26 
OOEF 5 : 
OOEF 54 ; Copy remaining parameters... 
OOEF 55 3 
OOEF 56 ALL_OK: 
50 a0Q000000 BF DO OOEF 57 MOVL #<PRVSM_BYPASS!PRVSM_SHARE>,RO ; privileges required 
OOF6 58 ASSUME PHD$Q_PRIVMSK EQ 0 : for indirection 
54 1C A6 DO OOF6 59 MOVL BRKSL_PCB(R6) ,R4 ; Set PCB address 
50 6C B4 CB xe ¢ BICL3 @PCB$C_PHD(R45 ,RO,BRK$Q_PRIVS(R6S ; Clear those already set 
OFF 6¢ ASSUME BRKSW_EFN+2 EQ BRKSB_STS 3; assumes so next instruction 
OFF 6 ASSUME BRK$W_EFN+5 EQ BRKS$B_PRVMODE 3 can set efn and zero sts and prvmo 
64 AB =04 AC OFF 64 MOVZWL EFN(AP) ,BRKSW_EFN(R6Y ; Copy event flag number 
50 20 AC DO 0104 365 MOVL  REQID(AP),RO + Requestor ID 
53.6CUCti«iC#S 66 CMPL #63,R0 3; Check legal (0-63 legal) 
b2 1F 0108 367 BLSSU BADPARAM_EXIT : exit if not 
50 A6 DO 010D 68 MOVL RO, BRKSL_REQID(R6) ; Save Requestor ID 
38 A6- = =61C AC DO 0111 69 MOVL FLAGS (AP) ,BRKS$L_FLAGS(R6) ; ags 
34 A6 «418 AC DO 0116 370 MOVL § CARCON(APS ,BRKSC_CARCON(R6) > Set carriage control 
24 Ab 28 AC dO B20 71 MOVL ASTADR (AP) ,BRKSL_ASTADR(R6) ; Ast routine 
28 AG eC AC 190 i MOVL ASTPRM(AP) ,BRKSL_ASTPRM(R6) ; Ast routine parameter 
it ; a : Other misc. initialization 
Py | 
0125 76 ASSUME BRKSW_STATUS+2 EQ BRKS$W_SUCCESSCNT 
1 77 ASSUME BRKSW_STATUS+4 EQ BRKSW_TIMEOUTCNT 
1 4 ASSUME BRKS$W_STATUS+6 EQ BRKS$W_REFUSEDCNT > 
0 A6 4 1 7 MOVZBW #SS$_RORMAL ,BRKSW_STATUS(R6) ; Assume final status 
78 AG) §=6©0000'8F = =B0 } ? 9 MOV #MSGS_TRMBROCST ,BRKS$W_TRMMSG(R6); set mailbox prefix code | 
: 4 § ; read PSL and save previous mode | 
50 DC O1eF 4 MOVPSL RO : fetch PSL 
92 16 €F 0131 5 EXTZV #PSLSV_PRVMOD,#PSLS$S_PRVMOD,- ; | 
; 154 § R 3; extract previous mode 
67 A6 90 ! . MOVB RO, BRKS$B_PRVMODE (R6) 3; Save 
13A 3 ; Set up search contexts 
135A 0 ; 


G 1 
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v04-000 EXESBRKTHRU - Break though urite mets 83:88:60 SYS.SRCISYSBRKTHR.MAR; 1 
54 A6 01 CE O13A 91 MNEGL #1,BRKSL_PIDCTX(R6) ; wild card pid 
} : 8 ASSUME BRKS$L_UCBCTX+4 EQ BRKSL_DDBCTX ; assume alignment 
: 34 3 Format screen message (if SCREEN requested) 
57 38 A6 D0 01 36 MOVL BRKSL FLAGS (R6) ,R7 ; Flags parameter 
4D 57 9 FI 14 9 BBC WBRKSO_SCREEN,R?,100$ : Skip if not requested 
50 A 014 98 MOVZBL #7,R0 ; lines to clear 
50 18 D1 014 99 CMPL #BRK_C_MAXLINES,RO : Greater than max? 
91 1F O14C 400 BLSSU BADPARAM_EXIT ; Branch if yes 
51 50 00 136 401 MOVL »R1 3 copy 
.e. WH SS & 13 f ¢ MULL3 #8,R1,R2 3; bytes of erase pattern 
0135 eRe : Set up repeating erase Line pattern on stack 
7E FEA7 CF 7D 0155 406 10$:  MOVQ W*ERASE_PAT,-(SP) ; copy erase pattern 
F850 FS Q15SA 407 SOBGTR RO,10$ z; one for each Line 
53 SE 00 O15D 408 MOVL SP,R ; address of erase pattern 
0457 O09 €1 Q160 409 BBC #BRKSV_BOTTOM,R7, 20S : Branch if message on _top of screen 
51 84 8F 9A the rt 208 MOVZBL #132,RT 3; Set ‘bottom’ (note 132 >> 24) 
54 008C C6 3¢ $168 41g "  MOVZWL = BRKSW_MSGLEN(R6) ,R4 ; Size 
55 O08 C6 9E Q16D 41 MOVAB BRKST_MSGBUF (R6) RS ; address of data 
0172 414 SFAO_S CTRSTR = SCREEN CTRSTR,- 
0172 415 UTLEN = BRKSL_SCRMSGLEN(R6) ,- 
017 416 OUTBUF = BRKSL_SCRMSGLEN(R6) ,- 
017 417 = R1,- 3 pesteres top/bottom 
017 418 Ps = Rees ; lines to erase * 8 
017 419 P35 = R3,- 3 erase pattern address 
017 420 P4 = R4,- ; size of msgbu 
017 421 = RS ; msgbuf address 
03 50 44 018D 4 ¢ BLBS RO,100$ 
FF54 1 019 4 BRW ERROR_EXIT ; blew it 
813 ? ¢ 100$: 
019 426 : Start initial Q10's up. AST’s are disabled first so that a 
0195 427 ; CPU Limit exceeded ast cannot fire between geotenine the 
0193 428 ; channel and setting the CCBSM_IMGTMP flag. Something that would cause 
0193 429 ; image exit to occur before the IMGTMP flag was set cannot be allowed. 
B138 rt ; Disabling AST makes synchronization of CHECK_COMPLETE easier as well. 
0183 4 é $SETAST_S ENBFLG = #0 ; Disable AST's 
O18 : : T(At this point, R6 points to BRK structure, all others are scratch) 
57 60 A6 00 019¢ 436 MOVL  BRKSL_QIOCTX(R6) .R7 ; Q10 context area 
58 06 3X 143 ; : sees MOVZWL #BRK_C_SIMULCAST,R8 ; Number to do at one time 
67 56 DO OIA 13 "MOVE R6,BRK2$L_COMMON(R7) ; Point back to common region 
GF 19 18 440 BSBB DO_WRITE ; Do the write 
07 5 3 1A 441 BLBC RO,350$ 3; exit on error 
57 EA 3 1AB 276 MOVAB BRK2$C_LENGTH(R7) ,R7 ; Add size to qio context 
F158 SOF 1AF 44 SOBGTR R8,300$ ; Continue 
18¢ 444 3508: 
50 odd 184 ret PUSHL RO ; Save status 
1B4 44 : Before returning to user, see if there is a cluster to send to 
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Branch if ‘‘cluster’’ not requested 
or if not in cluster 
send message 


; gone? Beal [ocate BRK if so 
; Enable AST‘s 


Restore status 
no OPER priv? 

continue if not 
take error exit 


Set success aor everything else 
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v04-000 Queue a single ike request ets 7 Bh :28 ibe SYS.SRCISYSBRKTHR.MAR; 1 


ceg 2 -SBTTL DO_WRITE = Queue a single write request 
4 
46 FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 
BSBW == DO_WRITE 


INPUT PARAMETERS: 


RE - BRK 
R? = Q10 context area 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

vocab ye CODES: 


0 - status 


SSS_NORMAL = all ok or error set in STATUS 
SS$_NOMOREPROC = done with all Q10's 


SIDE EFFECTS: 
Destroys R1,R2,R3,R4,R5 
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UNLOCK _DB: 
BBCC 


DOOCOCOC COO OOOO OO OCWDDOOOWOWDOWO NNN 
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00 E5 #BRKSV_LOCKED,- 
OD 66 A6 BRK$B_STS(R6),10$ ; clear locked flag 
54 1C A6 dO 1 MOVL BRKS$L_PCB(R6) ,R4 ; PCB 
00000000 ' GF 16 1 JSB G*SCHSIOUNLOCK 3; unlock 
1 8 SETIPL #0 ; lower IPL 
05 ; 23 10$: RSB ; Return 
1 0 DO_WRITE: 
1 
1 10 10$: 
EB 10 Qj 1 BSBB UNLOCK_DB 3 Unlock data base 
O1FA = 30 : : \ BSBW GET_NEXT_TERMINAL ; Get next terminal 
¢ 1% t returns with 1/0 database locked at IPL 2 
—€5 50 €9 } ; 16 6LBC RO,UNLOCK_DB : branch if done (no more processes) 
i 18 : Test for broadcast to mailbox 
55 58 A6 DO OIFF 30 MOVL BRK SL UCBCTX(R6) ,RS : fetch UCB address 
04 £1 203 1 BBC #TT Q_BROCSTMBX,- 
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_W 
23 48 A ucesi_ DEVDEPND2(R5),40$ ; Branch if not al loved 
5 DD PUSHL R ; Save ucb addres 
55 604A 0 MOVL yresl. AMB(RS5),R5 Get eddress = peeas tated mailbox 
1 1 BEQL ; Branch if non 
: Send broadcast to assoicated mailbox 
53 8C (6 3 MovzuL BRKSW_MSGLEN(R6) ,R3 Get Length of message 
8 16 f ADDL2 #<BRKST MSGBUF -BRKSu_ TRMASG> Rees “ Add aeilbex prefix overhead 
54 78 A6 MOVAB BRKSW TRAA (R6), Set address of mailbox message 
0000000 } 1 JSB Gey SURTMAILEOK’™ : Send message 
0 € BLBC RO, 3 $ ; branch if error sending to mailbox 
B6 30$ INCW BRKSW_SUCCESSCNT(R6) ; One more successful completion 
55 8ED0 fea POPL R5 ; Restore ucb address 
00020001 8F 03 " —« BITL = #<TTSM_NOBRDCST!TTSM_ PASSALL>, = 
44 AS UCBSL _BEVDEPEND(RS) ~ : test for Fy aed y or PASSALL 
C2 is BNEQ 10$ ; skip if either se 
1 BSBB UNLOCK _DB ; unlock data Stee 
: Assign channel (if possible) 
66 05 TSTL  BRKSQ_PRIVS(R6) ; assumes no privs in high Longword 
Ai BEQL 4 3 privs required non-nul 
: SSETPRV. S$ - $ 
“ENBFLG = #1,- ; Enable privs 
428 PRVADR = BRKSQ_ PRIVS(R6) : Privs to set 


52. 7E MOVAQ =(SP),R2 
62° OC A6 9A MOVZBL BRK$T.DEVNAME(R6),(R2) : Lengt 
04 A2 OD AB 9E MOVAB BRKST_DEVNAME+1 (RO) ,4( 


(R23 3; address 


AW DONINWIWWI WII _ 9 2 9 BW SE OOOAD SO PY POW D ONIN NU BI BD WOOUMVIM WUIOOOCOM F Ow 
BNA MEW $9 OO NAW EWN SO OD NAME WN 0 ODNAUE WIN 0 ODNOU SWAN | O OONOUE Wn 


DP OOO O0009090900 090909 NINN AAA AMM E & BNW AWA AANA POPONININD 2 OOOO 


4 
4 
0 4 
8 4 
0 d 
0 54 
0 54 
0 54 
ae 
; 3 
0 55 
0 55 
8 5 SASSIGN_S - 
5 “DEVNAM = (R2), 3; device name 
0 5 CHAN = BRK2$W_ CHAN(R7) 3 channel 
5E 08 8 55 #8, : Erench epece ioter 
19 50 € 5 BLB RO,50$ ; branch 
76 A6- «BS 6 INCW BRKS$W_REFUSEDCNT(R6) ; Ref 7 
70 A6 = 550 0 61 45$: MOVW RO ,BRRS$W_STATUS(R6) 3 record status 
6 SSETPRV_S - ; 
6 ENBFLG = #0,- ; Disable privs 
6 PRVADR = BRKS$Q_PRIVS(R6) s : Privs to disable 
FF74 831 ? BRwW 10$ ; Try another terminal 
6 ; modify the CCB so that the channel will be run down at image exit 
8 50$: 
SSETPRV_S - s 
7 ENBFLG = #0,- ; Disable privs 
4 PRVADR = BRK$Q_PRIVS(R6) ; Privs to reset 
50 OCA? 3C 7 MOVZWL BRK2$W_CHAN(R7) ,RO ; Channel number 
50 5 CE 7 MNEGL RO,R ; Get negative 
50  00000000'FF4 3 7 MOVAB aCfL$GL_CCBBASECRO].RO : Get CCB address 
0 8 7 BISB tease. M_TMGTMP,- 
08 A 7 CCB$B_STS(RO) ; Set image temporary channel 


Al Locate descriptor on stack 
| 
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: Do Q10 

MOVAB BRKST_MSGBUF (R6),R1 ; assume standard message 
MOVZWL BRKS$W- Pa ShEN RG) Re 3; and Length 

vt B CARCON(R6) ,R ; and carriage control 
MOVZWL roan PRR TEVeLK? © 


I ! 
JOS, CANCTRLOD RG ; 1/0 function code 
BBC #BRKSV_SCREEN,- 
artase TFLAGS«Ra) 70$ ; Branch if screen not requested 


BBC #TT ECCRT 
BSL “BEVDEPNG3 (RS) 70$ ; or not dec crt 
51 of 6 B MOVL BRKSL_SCRMSG(R6) ,R 3; screen message 
52 OB A C MOVZWL BRKSL— “SE RMSCLENCRG) , R2 : and Length 
5 D4 CLRL R3 3 no carriage control 
7. BRB res : force no refresh for screen write 
OA €1 BBC #BRKS$V_NOR 


EFRESH 
BRKSL FLA LAGS (R6) >. 978 ; Branch if not NO REFRESH 


A 
| 
A 
D 
3 
A 
C 
a 9 
9 
0 600 75$:  BIcw FIOSATR FR é : Clear refresh flag 
yt 77$: 
6 60 : Do the Q10! 
0 60 $010_S CHAN = BRK2$W_ CHAN(R7) , - 
0 60 EFN = #BRK Row QIOEFN,- 
0 60 FUNC = R4,- 
0 60 10SB = BRK2$0 10SB(R7),- 
0 60 ASTADR = Q10_BONE,- 
0 61 ASTPRM = ae = : aio context 
0208 61 Pl = (R1),- 3; address 
8 ; 61 P2 = R2,- ; and Length 
61 P4 =R : Carriage control 
27 50 ~=2«€9 D 61 BLBC RO,200$ ; error from Q10? 
OA A6- BE o INCW BRK$W_OUTCNT(R6) ; Increment outstanding count 
2 : Set timer for timeout if requested 
2C AG 7D 61 mova BRKSa _TIMEOUT(R6),- : (Test quad) 
2C A6 $ 620 RK$Q_ TIMEOUT (R6) Time .. requested? 
19 13 ; 621 BEQL Os ; Branch if not 
A g SSETIMR_S - 
A 624 EFN = #BRK_C_TIMEFN, - 
A 6 5 DAYTIM = BRK$O_TIMEQUT(R6), - 
A § ASTADR = W*QIO_TIMEOUT, - 
"7 ? REQIDT = R7 
04 28 E C ? § BLBS ,80$ 3; branch if o 
70 A6 8 F ? 80s: MOVW BRKSW_ STATUS (R6) ; Set final hemes 
50 01 9A 3 g é ne MOVZBL ee ed ; exit 
05 5 3 4 " — RSB 
635 


Lt | 
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SxpeRe THR - Write 
v04-000 DO_WRITE 

7 § ; Error during Q10 

7 . 

7 6 8 200$ 

70 A6 =6550~—s—s«#BO ee MOVW RO,BRKSW_STATUS (R6) ; Set final status 
B 640 SDASSGN_ S CHAN ="BRK2$W_ CHAN(RI7)* : Deassign channel 
FEBE 31 8 8 eh} BRW ; Try again with this Q10 context 


SYS 
v04 


COMPLETION CODES: 

RO = success or failure 
SIDE EFFECTS: 

R1-R5,R7 are destroyed. 
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SYSBRKTHR - Write breakthru to terminals 16-SEP-1984 01:42:38 VAX/VMS Macro v04-00 
v04-000 GET_SENDTO = Handle SENDTO and SENDTYPE -SEP-1984 94:48:38 LEYS SRCISYSBRKTHR.MAR: 1 
: te : -SBTTL GET_SENDTO = Handle SENDTO and SENDTYPE inputs 
46 ; 
9 4} : FUNCTIONAL DESCRIPTION: 
3 18 : Handle the SENDTYPE and SENDTO parameters and set up BRK. 
9 929 3 Privilege is checked for all but BRKSC_DEVICE writes. 
2 re : Writes to same username are allowed without privilege. 
3 638 ; CALLING SEQUENCE: 
; 639 3 BSBW GET_SENDTO 
0 3 637 > INPUT PARAMETERS: 
9 836 ; R6 = BRK 
9 660; SENDTYPE(AP) = sendtype parameter 
4 08) $ SENDTO(AP) = sendto parameter 
9 $8 : IMPLICIT INPUTS: 
FR Bien 
0339 + OUTPUT PARAMETERS: 
03 4 ; NONE 
0339 ; IMPLICIT OUTPUTS: 
0339 3 NONE 
33 9 3 
0339 3 
03 9 3 
9 3 
9 : 
g 3 
: 9 3 
9 3 
8 \] 3 
\] 
9 
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| GET_SENDTO: 
57 10 AC DO 9 MOVL SENDTYPE (AP) ,R7 i: fetch Send type 
57 04 O01 D CMPL WBRKSC_MAXSENDTYPE,R7 ; Compare to maximum 
12 + BLSSU 5% : branch if error 
4C A6 «657 ~=—«B0 MOVW R7,BRKSW_SENDTYPE(R6) ; Save low order word 
4 CASE R7,- ; Case on send type 
46 <5§,- : Invalid 
4 10$,- 3 send to device name 
4 9 1 - 3 send to username 
4 9 150$,- + send to all users 
4 9 150$>,- : send to all terminals 
4 9 pb =W 3; word context 
50 14 3 9 $3: MOVZWL #SS$_BADPARAM,RO ; Set status 
7 2 $: RSB 
$3 : single device or username requested 
51 OC ac 00 0 10$: MOVL SENDTOCAP),R1 ; Get “send to’ address 
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2 


JSB GER ESPROBER. DSC test for read 


BLBC : exit on error 
MOVZWL R1,R1 3; zero high word 
BEQL aS 3 ust be non-zero 


CMPB PRRKOC DEVICE AF ; device 
BEQL 40$ ; Branch if yes 


; Must be Username 


CMPW =, #J IB$S_USERNAME ,R1 ; max user name Length 
$0 


BLSSU 5$ 3 error 
MOVB R1,BRKST_SENDNAME (R6) 3 eer copy username ascic string 
eel R1 ; Save Lengt 
MOVC R1,(R 
BRKST 2 SENDNAME+1 (R6) ; and copy string 
POPL R1 : geeters Length 
MOVL BRKSL_PCB(R6) ,R4 3; Fetch PCB address 
(MOVL PCBSL_JIB(R4) ,R4 3; Fetch JIB 


: JIBST_USERNAME is a 12 byte field, with NO BYTE COUNT! 


CMPCS #11888 USERNAME 
T OSERNAME(R4) -#*A/ /,= 
a eR RRST ORENDNAMEST (RG) ¢ ; compare strings, fill with blanks 
BNEQ Toe ; branch if not equal 
BRB 3 names are same, no priv required 
; Device name, do a GETDVI to translate logical name 


MOVL SP,R4 ; Save SP 
MOVAL =(SP),R5 ; allocate scratch longword 

CLRL -(SP) ; end of List 

PUSHL R5 ; just a longword for device name Length 
PUSHAB BRKST_DEVNAME+1 (R6) 3; copy directly into device name area 
PUSHL topyde- DEVNAM@16>!- 


K$S_DEVNAME-1> ; size and getdvi code 


MOVL SP,R 3; save 
PUSHL Re ; address (device descriptor) 
PUSHL 3; length 
MOVL SP,R 3; save 
SGETOVIW S - 


DVIEFN,- event flag number 


Fen t epyies name (and wait) 


' 
eos 
@ 
PS] 
* 
Ww 


= (R : tem 

MOVB tes} sORKST _DEVNAME(R6)  ; copy Length 
MOVL R4, 3; Restore | 
MOva BRKST _DEVNAME (R6) ,- 

BRKST_ SENDNAME ( (R65 ; copy in case of cluster broadcast 
mova pexet “DE VNAME +8(R6) ,- 

BRKS$T~ SENDNAME+8 (ROS ; copy in case of cluster broadcast 
BLBC RO,1 3 check status 
BISB #BRKSM CHKPRIV,- 
MOVZ2WL #SS$_NORMAL ,RO ; set ok 


| 
BRKS$B_STS(R6) ; Set ‘check priv Later’ bit | 
| 
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05 ES 758 1108: RSB 

Ee 38 ; 
£? £68 ; Check for OPER priv before allowing request 
54 1C AB DO O3E6 16¢ 150$: MOVL BRKSL_PCB(R6),R4 ; Fetch PCB address 
EA 76 IFPRIV OPER, ; If priv ok, continue 
50 2894 BF 3C¢ FO 764 POveut. #sss_ -NOOPER ,RO ; Set status 
05 bee? 765 RSB : exit 
3F6 0 4©6 766 
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FUNCTIONAL DESCRIPTION: 

Given context in BRK, determine next terminal to send message to. 
CALLING SEQUENCE: 

BSBW GET_NEXT_TERMINAL 
INPUT PARAMETERS: 


R6 = BRK 
R7 = Q10 context 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


If RO = success, then BRKST_DEVNAME is filled in, 
and BRKS$L_UCBCTX has UCB address. 


COMPLETION CODES: 
RO - SS$_NORMAL 


SS$"NOMOREPROC 
other errors returned in BRK$W_STATUS 


FD ARAAAAAAAAA AAA AA AAA AAPA AAAAAAPAAAOAAAAAAAAAS 1 


| 
| 
| 
| 
| 
| 
IMPLICIT OUTPUTS: | 
| 
| 
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800 ; 
+4 ; SIDE EFFECTS: 
803 ; Destroys R1,R2,R3,R4,R5 
804 ; 
05 i-- 
06 
4 GET_NEXT_TERMINAL: 
50 O09A8 of * 59) ane oss ponsngraee Ae 3; assume no more processes to send to 
01 66 A6 11 BRKS$B_STS(R6) .5$ : If not done, lookup next terminal 
05 : i $$ RSB ; Return all done once again 
iS ea CASE BRKSW_SENDTYPE(R6),- ; Case on send type 
1 15 <10$,= : Invalid 
1 16 100$,- ; send to device name 
1 17 200$,- 3; send to username 
1 18 ALL_TERMS,~- ; send to all users 
1 1 ALL_TERMS>,- ; send to all terminals 
1 9 TYPE = W ; word context | 
50 14 3 Q § 10$: MOVZWL #SS$_BADPARAM,RO ; bad parameter 
0085 = 31 ; : BRW NEXT~TERM_ERROR : error 
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u to terminals bas | Sat 9 04:48:38 AX/VMS Macro v04-00 

L = return next terminal 5-SEP-1984 03:49:06 (CSYS.SRCISYSBRKTHR.MAR; 1 
Send to one device 
BISB #BRKSM_DONE ,BRK$B_STS(R6) ; set done 
BRW HAVE _NAME 3 and go 


: map username into terminal name 


SUBL2 #STKS$C_LEN,SP ; 
MOVL SP,R2 ; 


: Initialize area for GETJPI call 


Allocate some work space 
copy pointer 


MOVL R2,R1 i; copy pointer 
MOVL #<JPI$S_USERNAME@16>!- 
<JIBSS"USERNAME>,(R1)4# ; username size and code 
MOVAB STKST_OSERNAME(R2),(R1)+: username address 
MOVAB STKSW_USERLEN(R2),(R1)+ ; username Length to return 
MOVL #<JPI$_TERMINAL@16>!- 
<BRK$S-DEVNAME-1>,(R1)+ ; terminal name size 
MOVAB BRK$T_DEVNAME+1(R6),(R1)4+; terminal name address 
MOVAB STK$W “TERMLEN(R2) , (R1)+ ; terminal name length to return 
CLRL (R1) ; End of list 
S$SGETJPI_S - 
“EFN = #BRK_C_JPIEFN,=- : efn 
PIDADR = BRKSC _PIDCTX(R6) = : pid context 
ITMLST = (R2 3; item list 
BLBS RO,220$ ; Branch if ok 
CMPW =: #SS$_NOPRIV,RO ! no priv ? 
BEQL 2108" ; yes, try again 
ADDL2 #STKSC 3; Deallocate work space 
CMPW asss NOROREPROC RO 3 no more processes? 
BEQL NO_M 3; yes, done 
BPB NERT_ TERR ERROR ; No, unexpected error 
TSTW STrgU_TERMLEMCRZ) ; Interactive? 
BEQL 10$ ; If zero, no, try again 
PUSHR #*M<R2,R3> 3; Save 
MOVZBL BRKST 1 SENDNAME(R6), RO; Length 
CMPC STK Su. mi inely, Re) - ; length 
TKST~ vn R25, - ; address of name returned 
cane : fill and Length 
RKST Hrcmest in > requested name 
POPR oe meR2 A 3 restore, (does not affect CC) 
BNEQ 2108 3 not equal, loop 
MOVB atkay =f eer Nine) = 
BRK DEVNAME (R6) ; Length 
ADDL2 #STKST_LEN,SP 3; Deallocate work space 


E 2 
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v04-000 GET_NEXT_TERMINAL = return next terminal ~$Fb= 138 3:4 SYS.SRCISYSBRKTHR.MAR; 1 z 28) 
ri ; § ; Username match found, scan device name for unit number | 
19 #11 4 , bre HAVE _NAME ; exit 
rh § : Send to all terminals/users 
49 8 ALL_TERMS: 
OODE 3 L9 9 BSBW KDB ; lock database | 
bee 0 049 90 BSBW FIND Ne NEXT_TERM ; Find next terminal 
3 E8 rhs 91 BLBS ; Continue if OK 
046 «11 499 3¢ BRB Team DORE : Return proper status | 
498 94 NEXT_TERM_ERROR: 
70 A6 «= 550~—s«é#BBOD Rege + mMOVW RO, BRK$W_STATUS(R6) : Set final status 
Beer 637 TERM_DONE: 
50 O9A8 BF 3C¢ Behe 43 MOVZWL #SS$_NOMOREPROC,RO 3; mo more processes to send to 
04A4 900 NO_MORE_TERM: 
66 A6 02 88 O04A4 901 “BISB #BRKSM_DONE ,BRK$B_STS(R6) ; set done 
05 048 4 RSB 
04A9 90 
04A9 904 HAVE_NAME: 
0449 905 
00cS5) = 30 Biar 236 BSBW = LOCKDB ; lock database 
’ ; 
ore 43 ; Map name into UCB address of this terminal 
OD A6 GF O4AC 910 PUSHAB BRKST_DEVNAME+1 (R6) ; address of device name 
7E OC A6 9A OGAF 911 MOVZBL BRKST— _DEVNAME(R6),-(SP) ; Length 
51 SE 00 0483 at MOVL SP, ; Address of descriptor 
54 1C A6 dO or a7 MOVL BRKSL_PCB(R6) ,R4 ; Set PCB address 
00000000 * GF 16 Q4BA 915 JSB G* LOCSSEARCHDEV : find the UCB (puts addr in R1) 
5E CO O4C 916 ADOL #8,SP 5 pop _sescriptor 
05 50 «=6E9)«=—(04C 917 BLBC RO,NEXT_TERM_ERROR 3 
55 dO oth: 918 MOVL R1,R5 3 UCB. edrees 
409 919 
04€9 920 HAVE_UCB: 
0409 §=921 ; 2 
0409 9 ¢ ; Check availability, access and privilege 
04C9 % H 
02 E1 04€9 924 BBC #DEVSV 
28 38 A 4CB 925 UCBSL BEVCHARCRS) , 3$ =; skip if not terminal | 
12 E1 O4CE 9 7 BBC #OEVST 
23 38 A 4D 9 UCBSL BEVCHAR(RS), 3$ ; skip terminal if not available 
2040 8F B3 0403 928 BITW  #<DEVSM_NET!DEVSM_SPL>.- : 
38 AS 4D 929 BSL *DEVEHAR IRS)” ; skip terminal if DECnet device | 
. oe 409 930 BNEQ $ 3; or spooled 
01 E 408 931 BBS #DEVSV 7 , 
16 3C AS DD 9 ; UCBSL “se Vtsan (R5), 3$ ; skip terminal if detached 
; a6 EO O4E 9 BBS BRKSL~REQID(R6) : | 
OF 00. ? 60 rt) 3 : ane ayt2s0 RDC ABRKTHRUCRS) 3$ ; Or specific class disabled 
D 48 AS 4E9 § uce in BevoEPNO et), 5 5$ ; must try this term if BROCSTMBX 
00020001 8F 3 4eC BITL <TTSA_NOBRDCST!TT$M_PASSALL> 
4 AS 4F 8 UCBSL _BEVDEPEND(R5) 3 test for NOBROADCAST or PASSALL 
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v04-000 GET_NEXT_TERMINAL = return next terminal ae 3350888 SYS.SRCISYSBRKTHR.MAR; 1 . 28) 
a rey +44 BEQL 5$ ; try terminal if neither set 
rn! 4 ; For some reason, this device is not acceptable 
OO4F 31 re! 38 3$: 6RW 40$ ; skip to next terminal 
02 €1 O4F9 945 5S: BBC #BRKSV_CHKPRIV,- 
2E 66 A6 rt 848 BRK$B_STS(R6), 508 ; Branch if priv check not required 
rtf ae8 ; Search up process tree to see if owner 
1 iC A pe o65 g29 MOVL BRKSL_PCB(RG),R1 ; PCB address 
§ 2c A D 28 51 MOVL UCBSL_PID(R5),R ; Uwner PID 
60 Al D1 0506 336 10$: CMPL PCBSL_PID(R1),R 3 compare PIDs 
20.0= 13 Bebe 95 BEQL : branch if OK 
51 1C Al #5 05 5 954 MOVZWL PCBSL_OWNER(R1),R1 ; Get index of owner 
A 13 Q51 955 BEQL ; If equal then none, must have priv 
51 00000000'FF41 DO 0512 328 MOVL Fg MMR, PORPECERTS A ; Get Owner PCB address 
EA 11 Bele 44 208 BRB 10$ ; Loop 
54 10 AB DO O51C 959 MOVL BRKSL_PCB(R6) ,R4 ; PCB address 
bese 960 IFPRIV OPER, :; If privilege, ok to send message 
50 2894 BF 3¢ 605260—s «961 MOVZWL #SS$_NOOPER,RO ; set error 
05 0528 96 RSB : exit 
052C 96 ; 
052C 964 ; et up name and unit number 
C52C 3=—-:»965 3 
052C 966 30$: 
57 dd 052C 967 PUSHL R7 ; Save R7 
OF 9A OS2E 968 MOVZBL #BRKS$S_DEVNAME-1,R0 3; Size of buffer 
57 OC AGB «9E «(0531 «969 MOVAB BRKST_DEVNAME(R6S,R7 =: Address of buffer 
51 O1A7 Q9E QO535 970 MOVAB 1(R7),R1 3; Address past byte count 
54 01 CE 0539 971 MNEGL #1,R4 ; Standard device name 
00000000'GF 16 Q53C 97 JSB G*{OCSCVT_DEVNAM ; convert to regular device name 
8EDO bets 97 POPL R ; Restore R : 
09 50 =C«éEB Ere ore BLBS RO,50$ ; skip this device if error 
034 976 ; This terminal failed, reset and loop 
54 977 3 
bee 978 40$: 
FC99)- -330:«0548=S («979 BSBW UNLOCK_DB 3 unlock database 
76 A6 6 0548 980 INCW BRKS$W_REFUSEDCNT(R6) ; Increment 
FEAS 1 Bast . 1 _ BRW GET_NEXT_TERMINAL ; Loop 
OC A6 «65190 32} 9 é MOVB R1,BRKST_DEVNAME (R6) ; Length of string 
58 AG «6555—sé*D 258 ? : MOVL R5,BRKSL_UCBCTX(R6) 3; save UCB address 
223 2 $ ; set up TRMNAME for mailbox message 
4 a5 B80 0559 988 MOVW UCBSW_UNIT(RS),- 
AA 55¢ = (989 BRKSW- iT R6) : unit number 
50 8A 0 55 0 MOVL UCBS$L_DDB(R5) ,RO ; Fetch DDB 
4 a0 7D 0562 991 MOVQ © DDBST-NAME (ROS ,- 
7C A 56 99¢ BRKST~TRMNAME (R6) ; set TRMNAME (first half) 
1C A 7D 56 99 MOVaQ 454 at Lyf) = 
9084 6 36A 994 BRKS$T~ TRMNAME +8 (R6) ; set TRMNAME (second half) 
0 1 OA 6D 995 MOVZBL #SS$_RORMAL RO 3 set success 
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v04-000 GET_NEXT_TERMINAL = return next terminal * Ep 1386 83: 18: t3 USys sR SR c§8 aFSBRK THROM MAR; 1 (6) Tab 
05 70 9 RSB 
sri $31 
71 28 LOCKDB 
00 =«=—€2 a 9 BBSS #BRKSV_LOCKED,- 
OA 66 A6 573 1000 BRK$B_STS(R6),10$ i set locked flag 
54 1C A6 =O §258 1 4 MOVL BRKSL_PCB(R6) ,R4 ; Set PCB address 
00000000 ' GF 42 S7A 1 § B G*SCHSIOLOCKR : lock 1/0 databace for read access 
5 BB 8 om 
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= Search 1/0 database aise 7 Bf: 28; ae SYS.SRCIS SYSBR RKTHR.MAR; 1 = 3, 


-SBTTL FIND_NEXT_TERM = Search 1/0 database 


nm 
~ 
ze 
o7 


FUNCTIONAL DESCRIPTION: 


Given the UCB context of the Last terminal, find the next 
terminal that qualifies. Terminal must be online. 


If looking for all terminals, an unowned terminal is skipped 
if autobauding. 


CALLING SEQUENCE: 
BSBW = F_IND_NEXT_TERM 
INPUT PARAMETERS: 
R6 = BRK 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
R5 = points to UCB 
COMPLETION CODES: 


RO = 1, RS is UCB 
RO = 0, no more terminals 


ALL other registers preserved. 
SIDE EFFECTS: 
NONE 


FIND_NEXT_TERM: 


PUSHR #*M<R10 ; Save 
MOV ~—s_ BRKSL WEBCTX«RS) R10 =: ucb and ddb pair 


; tee TEMP 


sn te 8F 


38 


COOOOOOOOOOCOCOCOOOCOOCOSOOOOOOCOCOOOCOOOCOOOOCOCOCOOOOOOOOOOOOOOOOOO 


RRR REE EF FAWN AANA IO POPOPIPONIPOPININ SS SSS SSO Bt 


MRO OONOA NE WIN 2 OOO NA UE WIN 9 OD NOAU EWN 0 OO NAME WWI 2 0 ODNOAU EW OOONOD 


BEQL 20$ 


CDOOOOCOOOOCOOCOCOCOCOCOOSOOOOBDOOOCO OOOO OOCO COCO OCOOCOOOCOOOCOOOOOCOOCOOCOOO Zax 


13 3 
D4 5 CLRL RO ; see TEMP 
30 AA FFFFFFFF or D1 CMPL #-1,UCBSL_LINK(R10) ; *** TEMP until SCAN_IODB enhanced 
,. Oe $3 208 BEQL 408 ; t** TEMP to handle missing UCBs 
00000000 Gt 1 97 a. Gr LOCSSCAN_ 10DB : Fetch next UCB 
26 50 =€ H4 BLBC RO,40$ : branch if done 
A : Have valid UCB, see if it's a terminal 
02 €1 O5A 59° BBC 
F2 38 AA A 6 Ucbst PBEVCHARCRIOD 20$ ; Get next if not terminal 
04 —1 A ? BBC #ucBs7_0 INE 6 
ED 64 AA A UCBSW "sTsth } 208 3 next ucb if offline 
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v04-000 FIND _NEXT_TERM = Search 1/0 database g73Fb = 382 84:08:88 LEYS SRCISYSORKTHR MAR: 1 . 3) 
5C AA ° AA 3 TSTW FEU REFCCATOD 3; terminal allocated? 
10 AD 4 BNEQ ; yes, do write 
046 «6B AF 5 CMPW #BRKSC_ALLTERMS,- 
4c A B $ RKSW_SENDTYPE(R6) ; for all terminals? 
F lg 8 BNEQ 3 no, try next 
E B 8 BBC #TT2$V_AUTOBAUD,- 
05 48 AA 8 $ UCBS$L_BEVDEPND2(R10),30$ ; branch if not autobaud 
76 Ap 96 ry 0 INCW ag money VOEDCNT (RO) ; Refused due to autobaud 
D 1 260 4 BRB 0$ 3; try again 
55 SA 0 5BF g 30$ MOVL B10 .Re ; Set output 
58 A6 SA D C6 fe MOVQ R10, BRK$L_UCBCTX(R6) ; save ucb and ddb pair 
0CO0O 8F BA 5¢ 6 40$ POPR #*M<R10,R11> ; Restore 
05 O5CA 7 RSB ; Return (assumes RO unmodified from 
5CB a ; call above) 
5¢B 7 
5(B 80 


J 2 
breakthru to terminals 16-SEP- 


MOVQ BRK$Q_TIMEOUT(R6) ,- 


RK$Q_ TIMEOUT (R6) ; Time out specified? 
BEQL ; branch if no 
SCANTIM. S$ REQIDT = R7 3; Cancel timer 


208: 
SDASSGN_S CHAN = BRK2$W_CHAN(R7) ; Deassign channel 


; check 10SB 


hovzut BRK $Q_10SB(R7),RO ; Fetch status 
branch if no error 
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SYSBRKTHR - Write 1 :42:38 VAX/VMS Macro V04-00 P 5 | 
v04-000 QIO_DONE = process qio completion “SEP=1 1984 63; 28; a6 SYS. SRCIS YSBRKTHR.MAR; 1 — ta) 
ce ! § -SBTTL QIO_DONE - process qio completion | 
Bune i 
3CB 1086 ; FUNCTIONAL DESCRIPTION: | 
C8 ! ; Completion AST roctine for Q10 to terminal. | 
3CB 1090 ; CALLING SEQUENCE: | 
ete ! 38 ; CALLG (as an AST) | 
CB 3 | INPUT PARAMETERS: 
ots 36 : 4(AP) = Address of per Q10 context within BRK 
scB 98 > IMPLICIT INPUTS: 
b8cB 1100 _— 
05¢B 1 64 : OUTPUT PARAMETERS: 
Bec8 : 08 : NONE 
bacp 1104 ; IMPLICIT OUTPUTS: 
tt : 05 ; NONE 
05¢B 1 09 > COMPLETION CODES: 
gg ge: ten 
05¢B 1110 : SIDE EFFECTS: 
O5¢cB 1 \¢ : May result in another Q10 being performed or 
O5CB 11135 ; completion of service. 
OSCB 1114; 
gg Ng 
OFFC O56 } 2 QIO_DONE: » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
57 04 AC i) ascp } i§ MOVL 4(AP) ,R7 ; Q10 context 
56 67 00 ge} : Y MOVL BRK2$L_COMMON(R7) ,R6 ; BRK common area 
5D4 1 ¢ 
507 1 
509 1124 
208 1125 
1 § 
5 § 1 
5 1 8 
5SF1 1 
SF1 1 9 
2 1 : ; 
5 : 5 cn ass CANCEL ,RO ; Make sure it was cancel (from timecut) | 
3 F i 5 ber #338. ABORT ,RO : Make sure it was cancel (from timeout) | 
76 ? ¢ 1 $ INCW RKSW_REFUSEDCNT (R6) t One more non-successful completion 
7 1138 BRB 0$ 3 continue | 
| 
Pees J 
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BRKSW_SUCCESSCNT(R6) 
BRKSW_OUTCNT(R6) 

ROT 00S" 
CHECK_COMPLETE 


Be te Bete te es. 
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One more successful completion 


One less outstandin 
Do next write with 
branch if success 


Pnis context 


check 7 completion 
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Check completion criter 5-SEP-1984 
~SBTTL CHECK COMPLETE = Check completion criterion 


FUNCTIONAL DESCRIPTION: 


See if service is done with all it's duties and 
complete if so. 


CALLING SEQUENCE: 

BSBW CHECK_COMPLETE 
INPUT PARAMETERS: 

R6 - BRK 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
RO, R1 destroyed 


Gn tome 


STW BRKSW_OUTCNT (R6) : 1/0 still outstanding? 
BEQL 10$ : branch if done 
RSB 3; otherwise, exit 
; Return status and complete service 
10$: : 
MOVL BREE. 1OSB CRS) RI 3 return IOSB 
BEQL 0$ ; Branch if none 
BLBC BRK$W_STATUS(R6) ,20$ ; Branch if other error occurred 
TSTW RKSWTSUCCESSCNT(R6) =: any messages sent? 
BNEQ ; branch if yes 
MOVW #Sss eirihsty - 
BRKS$@_STATUS (R65 ; set device off Line 
208: MOVa BRKSW_STATUS(R6),(R1) ; Return status and counts 
: Deliver AST if necessary 
30$: ’ 


SOOOOOSOOOWO OOOO OO 009 09 69 09 09 09 09 09 SII NINN NSP AA AAAA AAA IIIT ene 
MEW 9 OO NAW WN OOO NAUE WIN OO ODN WINR 0 OO NOU EWI OOO VNOUES UT" O00 


a a a a a a a a a a kk kd at od ot 8 2 2 8 es TD 
FIED at et ast st st tk i i kd th th ts 


MOVL PRESL ASTADR (RG) -A1 3; Fetch aggrese 
8 0$ : Branch if no AST 
MOVZBL BRKSB_PRVMODE(R6) ,RO ; Set previous mode 
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= Check completion criter 5-SEP- SYS.SRCIS $758 RKTHR.MAR; 1 


DESIGN NOTE: *** Should AST quote be taken at gets ot ge of service? 
so = must use SCHSQAST here (to return quot 
Does this imply non-paged pool for ACB? Could +4 a problem. 


SDCLAST -§ - 
ASTADR = (R1),=- ; AST routine 
ASTPRM = BRKSL_ASTPRM(R6),- ; AST parameter 
ACMODE = RO ; access mode of caller 


; Set Event Flag Number 


COOOGOOCCOCOCOOOOCOCOOCOOOOOOCOOOOOOOSoOO I A 
VeStMOAOOOOOOOOWDTNTN TNT 3999.3 


PARADA AAAAAAAAPAAAAIAAPSAOSSISOSIASS 8 


POROPOPOPOPOPOPOPONONONONONNOPONOPOPOPONONONONOPOPINUNIND 
WWNINNIWIRPONONONONONONONoN) 2 3 2 SS QO Mee 


m Cc 
kk kt a TD 


4 
5 
7 3 YN 
} 40$ 
51 64 A6 3C MOVZWL BRKSW_EFN(R6),R1 3; Fetch number x 
? SSETEF_S EFN = R1 ; Set efn EXE: 
EXE 
§ Return storage th 
3; RO = BRK ips. 
; : TUR R 1PL 
RETURN_MEMORY : 1p 
50 DD PUSHL RO ; Save IRP 
50.56 4 0 MOVL RO ; Address of block IRP 
51 08 A6 C 1 MOVZWL BRKSW_SIZE(R6),R1 ; Size IRP 
00000000'GF 16 ¢ JSB “EXESDEAP1 ; Deallocate IRP 
50 8EDN POPL ; Restore IRP' 
05 4 RSB ; Return inp 


PAAAAAAAAASAAA SOSA 
DO NIN NIN NOAA AAAAOAA AAO 


NOD ONS 
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-SBTTL QIO_TIMEOUT = process qio timeout 


“IO 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 
NONE 


INPUT PARAMETERS: 

4(AP) = Q10 context address 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Q10_TIMEOUT: -WORD “M<R6> 
MOVL ances oc Fetch context 

fetch common area address 

increment time out count ??? 


i a a kk kk dt dd 
SSIS DED DEDEDE DEDEDE De TT BB ES BE EWI 


PWN OOD NAUNE WD OOD NOAUE WIN O ODNAUE WIN OO 


Cancel 1/0, wait for qio_done ast 
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v04-000 QIO_TIMEOUT = process qio timeout goer 19 4 84:08:86 SYS.SRCISYSBRKTHR.MAR; 1 . RED 
687 127 
007C¢ s 4 ! a -ENTRY EXESBRDCST, “M<R2,R3,R4,R5,R6> ; OLD SYSSBRDCST... 
6D Q0000000'GF 9E 8 : hi MOVAB G*EXESSIGTORET, (FP) ; Set condition handler 
51 04 ac 00 0690 : 1 MOVL 4(AP),R1 ; Get message address 
Oe94 : ; Figure out send type 
3 06 9A 0694 1285 MOVZBL #BRKSC_ALLTERMS,R3 : Assume all terminals 
52 08 AC 0 697 1 § MOVL 8(AP),R2 ; Fetch descriptor address 
a. 698 1 +35 2 : Branch if all terminals 
53 3 9A 069D 1288 MOVZBL #BRKSC_ALLUSERS,R3 ; Assume all users 
6 b3 O6A0 1289 TSTL (R2) ; Check length 
0 1 6A2 1290 BEQL 20$ ; Branch if zero 
53 01 9A one : 4 208 MOVZBL #BRKSC_DEVICE,R3 ; Must be terminal name 
54 D4 Q6A7 1 38 CLRL RG ; Clear R4 - no flags 
55 20 9A Q6A9 1294 MOVZBL ig Fe ; Default carcon if only 2 parameters 
6C 04 D1 O6AC 1295 CMPL Aa OE ae : More parameters? 
04 12 Q6AF 1296 BNEQ $5 ; Branch if no 
54 OC AC 7D 0681 1297 MOVQ 12(AP) ,R4 ; Flags and carcon 
0685 1298 30$: 
56 7E 7E 0685 1299 MOVAQ = =(SP),R6 ; allocate IOSB on stack 
0688 1300 SBRKTHRUW_S ~ ; Call breakthru and wait 
0688 1301 EFN = #BRK_C_BRDCSTEFN,- 
0688 1306 MSGBUF = (R1),- 
0688 130 SENDTO = (R2),- 
0688 1304 SNDTYP = R3,- 
0688 1305 FLAGS = R4,- 
0688 1306 CARCON = R5,- 
0688 1307 TIMOUT = #16,- ; *** SYSGEN PARAMETER 22? 
0688 1308 108 = (R65 
03 50 9 06D3 1309 BLBC 60$ ; Branch if error 
50 66 3C 0606 10 ie MOVZWL RReS RO : Use I0SB status 
50 00002894 8F D1 06D9 131¢ CMPL #SS$_NOOPER,RO 3 new status? 
03 12 O6€0 131 BNEQU 3 nope, exit 
50 24 3C 606E 131% ROVZWL #SS$_NOPRIV,RO 3; set status 
04 O6€5 1315 70$: RET : EXIT 
06E6 1318 
06E6 1317 .END 
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ALL TERMS 
ASTADR 


ASTPRM 
BADPARAM EXIT 
RK$B_PRVMODE 


BRKSL_UCBCTX 
BRKSM_CHKPRIV 
BRKSM 


BRKSV_CHKPRIV 
BRKS$V_CLUSTER 


BRKSV~ 
BRK$V~LOCKED 


BRK$W~OUTCNT 
BRK $W~REFUSEDCNT 
BRK$W~ SECONDS 
BRK$W~SENDTYPE 
BRK SW" SIZE 
BRK$W~ STATUS 
BRK SU SUCCESS 
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SYSSCANTIM 


NEXT TERM ERROR 
R RM 


OOooooCoCan ooo 


eeerereee 


" 


Oooo 
OOOOCCOCOCO * CGOCOCOOCOCOCOO 
a—O—— "00 *§ OMOO— 
DWOrwwno cod #+OLOOMOO 


Reese 
eereeree 
rereraene 
Reeeeeree 


oo 
pars 


J 
So 
S 
OOOOCQOOCCOOOMOOCOCSooO 
co.OOo0o 
OP Ow 
FOLoLoan 


SOMO PMMLSWOLOO—& 


geeereee 
eererere 
greerere 
geenckenre 


- Write breakthru to terminals 


~ 80000871 


02 


<  C O 
ooocooo coco 
Mororororenw9 for 


~PASSALL 
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! \ Performance indicators ! 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:01.77 
pounens processing ite Ba! R0: 9-38 00:00:04.76 
Pas 62 00:00:27.10 ETS 3 
Symbol table sort 0 4 4.50 00:00:12.69 
Pass 2 220 00:00:05.39 Sb SE a 
Symbol table output 24 00:00:00.21 00:00:00.4 
Psect synopsis output 2 00:00:00.03 00:00:00.2 
Cross-reference output 0 Bp: B8 89" Bo Bp 088-80 
Assembler run totals 1012 00:00:37.82 00:02:03.24 


ihe working set Limit was 2100 pages. 

155190 bytes (304 pages) of virtual memory were used to buffer the intermediate code 

There were 150 pages of syubet table space ot scetee to hold 2771 non-local and 66 Local symbols. 
131? source Lines were read in Pass 1, produci ial 24 object records in Pass 2 

53 pages of virtual memory were used to define 51 macros. 


weerrecer ee eee ee em ee eee ee eee nm + 


Macro Library name 


-$255$DUA28: OEE. -OBJJLIB.MLB;1 15 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 32 
TOTALS (all Libraries) 47 


3023 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSBRKTHR/OBJ=OBJ$:SYSBRKTHR MSRC$:SYSBRKTHR/UPDATE=(ENH$: SYSBRKTHR) +EXECMLS$/LIB 
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SYSBRKTHR - Write breakthru to terminals at se 91 8}: tt 3 AX/VMS 
Psect synopsis “SEP-1 3:4 SYS.SRCIS 
¢ececece ere coennn+ 
! \"Psect Synopsis 5 
PSECT name Allocation PSECT No. Attributes 
, 8 « 0000000 “( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL 
$ 000002Cc ( 44, ; 01 ¢ 1.) \NOPIC  USR CON ABS LCL NOSHR 
YSEXEPAGED QOOO06E6 ( 1766.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR' EXE 


cro 
SYSB R 


RD 


v04-00 
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NOSHR = woexe — NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
WRT NOVEC BYTE 


~ 2; 
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